#!/usr/bin/perl
#index.cgi

require "./mdmmod-lib.pl";
&header($text{'index_title'}, "", "index", 0, 1);

print "<form action=save-mod.cgi>\n";
print "<table class=mode1 border=0 cellpadding=4 cellspacing=1 width=100%>\n";
print "<tr><b>$text{'setmod'}</b>\n";
local $mod=&get_mdm_mod();
printf "<tr>&nbsp;<input type=radio name=selectmod %s value='server'>&nbsp;$text{'server'}\n</tr>",($mod eq 'server')?checked:'';
printf "<tr>&nbsp;<input type=radio name=selectmod %s value='client'>&nbsp;$text{'client'}\n</tr>",($mod eq 'client')?checked:'';
print "</table><p>\n";
print "<table class=mode1 border=0 cellpadding=4 cellspacing=1 width=100%>\n";
print "<tr><input type=submit value=$text{'save'} class=button1></tr>\n";
print "</table></form>\n";

&footer("/",$text{'index'});
1;
